home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_4.ZIP / T6800S.ASM < prev    next >
Assembly Source File  |  1990-07-18  |  5KB  |  296 lines
  1.     .title    AS6800 Sequential Test
  2.  
  3.     .area    DIRECT
  4.  
  5.     .setdp    0,DIRECT
  6.  
  7.     ext    = 0x1234    ; extended address
  8.     .blkb    0x12
  9. dirpag:                ; direct page location
  10.  
  11.     .area    AS6800
  12.  
  13.                 ; 00
  14.     nop            ; 01
  15.                 ; 02
  16.                 ; 03
  17.                 ; 04
  18.                 ; 05
  19.     tap            ; 06
  20.     tpa            ; 07
  21.     inx            ; 08
  22.     dex            ; 09
  23.     clv            ; 0A
  24.     sev            ; 0B
  25.     clc            ; 0C
  26.     sec            ; 0D
  27.     cli            ; 0E
  28.     sei            ; 0F
  29.     sba            ; 10
  30.     cba            ; 11
  31.                 ; 12
  32.                 ; 13
  33.                 ; 14
  34.                 ; 15
  35.     tab            ; 16
  36.     tba            ; 17
  37.                 ; 18
  38.     daa            ; 19
  39.                 ; 1A
  40.     aba            ; 1B
  41.                 ; 1C
  42.                 ; 1D
  43.                 ; 1E
  44.                 ; 1F
  45.  
  46.     .page
  47.  
  48.     bra    .        ; 20 FE
  49.                 ; 21 FE
  50.     bhi    .        ; 22 FE
  51.     bls    .        ; 23 FE
  52.     bcc    .        ; 24 FE
  53.     bcs    .        ; 25 FE
  54.     bne    .        ; 26 FE
  55.     beq    .        ; 27 FE
  56.     bvc    .        ; 28 FE
  57.     bvs    .        ; 29 FE
  58.     bpl    .        ; 2A FE
  59.     bmi    .        ; 2B FE
  60.     bge    .        ; 2C FE
  61.     blt    .        ; 2D FE
  62.     bgt    .        ; 2E FE
  63.     ble    .        ; 2F FE
  64.     tsx            ; 30
  65.     ins            ; 31
  66.     pula            ; 32
  67.     pulb            ; 33
  68.     des            ; 34
  69.     txs            ; 35
  70.     psha            ; 36
  71.     pshb            ; 37
  72.                 ; 38
  73.     rts            ; 39
  74.                 ; 3A
  75.     rti            ; 3B
  76.                 ; 3C
  77.                 ; 3D
  78.     wai            ; 3E
  79.     swi            ; 3F
  80.  
  81.  
  82.     .page
  83.  
  84.     nega            ; 40
  85.                 ; 41
  86.                 ; 42
  87.     coma            ; 43
  88.     lsra            ; 44
  89.                 ; 45
  90.     rora            ; 46
  91.     asra            ; 47
  92.     asla            ; 48
  93.     rola            ; 49
  94.     deca            ; 4A
  95.                 ; 4B
  96.     inca            ; 4C
  97.     tsta            ; 4D
  98.                 ; 4E
  99.     clra            ; 4F
  100.     negb            ; 50
  101.                 ; 51
  102.                 ; 52
  103.     comb            ; 53
  104.     lsrb            ; 54
  105.                 ; 55
  106.     rorb            ; 56
  107.     asrb            ; 57
  108.     aslb            ; 58
  109.     rolb            ; 59
  110.     decb            ; 5A
  111.                 ; 5B
  112.     incb            ; 5C
  113.     tstb            ; 5D
  114.                 ; 5E
  115.     clrb            ; 5F
  116.  
  117.  
  118.     .page
  119.  
  120.     neg    ,x        ; 60 00
  121.                 ; 61
  122.                 ; 62
  123.     com    ,x        ; 63 00
  124.     lsr    ,x        ; 64 00
  125.                 ; 65
  126.     ror    ,x        ; 66 00
  127.     asr    ,x        ; 67 00
  128.     asl    ,x        ; 68 00
  129.     rol    ,x        ; 69 00
  130.     dec    ,x        ; 6A 00
  131.                 ; 6B
  132.     inc    ,x        ; 6C 00
  133.     tst    ,x        ; 6D 00
  134.     jmp    ,x        ; 6E 00
  135.     clr    ,x        ; 6F 00
  136.     neg    ext        ; 70 12 34
  137.                 ; 71
  138.                 ; 72
  139.     com    ext        ; 73 12 34
  140.     lsr    ext        ; 74 12 34
  141.                 ; 75
  142.     ror    ext        ; 76 12 34
  143.     asr    ext        ; 77 12 34
  144.     asl    ext        ; 78 12 34
  145.     rol    ext        ; 79 12 34
  146.     dec    ext        ; 7A 12 34
  147.                 ; 7B
  148.     inc    ext        ; 7C 12 34
  149.     tst    ext        ; 7D 12 34
  150.     jmp    ext        ; 7E 12 34
  151.     clr    ext        ; 7F 12 34
  152.  
  153.  
  154.     .page
  155.  
  156.     suba    #1        ; 80 01
  157.     cmpa    #1        ; 81 01
  158.     sbca    #1        ; 82 01
  159.                 ; 83
  160.     anda    #1        ; 84 01
  161.     bita    #1        ; 85 01
  162.     ldaa    #1        ; 86 01
  163.                 ; 87
  164.     eora    #1        ; 88 01
  165.     adca    #1        ; 89 01
  166.     oraa    #1        ; 8A 01
  167.     adda    #1        ; 8B 01
  168.     cpx    #1        ; 8C 00 01
  169.     bsr    .        ; 8D FE
  170.     lds    #1        ; 8E 00 01
  171.                 ; 8F
  172.     suba    *dirpag        ; 90 12
  173.     cmpa    *dirpag        ; 91 12
  174.     sbca    *dirpag        ; 92 12
  175.                 ; 93
  176.     anda    *dirpag        ; 94 12
  177.     bita    *dirpag        ; 95 12
  178.     ldaa    *dirpag        ; 96 12
  179.     staa    *dirpag        ; 97 12
  180.     eora    *dirpag        ; 98 12
  181.     adca    *dirpag        ; 99 12
  182.     oraa    *dirpag        ; 9A 12
  183.     adda    *dirpag        ; 9B 12
  184.     cpx    *dirpag        ; 9C 12
  185.                 ; 9D
  186.     lds    *dirpag        ; 9E 12
  187.     sts    *dirpag        ; 9F 12
  188.  
  189.  
  190.     .page
  191.  
  192.     suba    4,x        ; A0 04
  193.     cmpa    4,x        ; A1 04
  194.     sbca    4,x        ; A2 04
  195.                 ; A3
  196.     anda    4,x        ; A4 04
  197.     bita    4,x        ; A5 04
  198.     ldaa    4,x        ; A6 04
  199.     staa    4,x        ; A7 04
  200.     eora    4,x        ; A8 04
  201.     adca    4,x        ; A9 04
  202.     oraa    4,x        ; AA 04
  203.     adda    4,x        ; AB 04
  204.     cpx    4,x        ; AC 04
  205.     jsr    4,x        ; AD 04
  206.     lds    4,x        ; AE 04
  207.     sts    4,x        ; AF 04
  208.     suba    ext        ; B0 12 34
  209.     cmpa    ext        ; B1 12 34
  210.     sbca    ext        ; B2 12 34
  211.                 ; B3
  212.     anda    ext        ; B4 12 34
  213.     bita    ext        ; B5 12 34
  214.     ldaa    ext        ; B6 12 34
  215.     staa    ext        ; B7 12 34
  216.     eora    ext        ; B8 12 34
  217.     adca    ext        ; B9 12 34
  218.     oraa    ext        ; BA 12 34
  219.     adda    ext        ; BB 12 34
  220.     cpx    ext        ; BC 12 34
  221.     jsr    ext        ; BD 12 34
  222.     lds    ext        ; BE 12 34
  223.     sts    ext        ; BF 12 34
  224.  
  225.  
  226.     .page
  227.  
  228.     subb    #1        ; C0 01
  229.     cmpb    #1        ; C1 01
  230.     sbcb    #1        ; C2 01
  231.                 ; C3
  232.     andb    #1        ; C4 01
  233.     bitb    #1        ; C5 01
  234.     ldab    #1        ; C6 01
  235.                 ; C7
  236.     eorb    #1        ; C8 01
  237.     adcb    #1        ; C9 01
  238.     orab    #1        ; CA 01
  239.     addb    #1        ; CB 01
  240.                 ; CC
  241.                 ; CD
  242.     ldx    #1        ; CE 00 01
  243.                 ; CF
  244.     subb    *dirpag        ; D0 12
  245.     cmpb    *dirpag        ; D1 12
  246.     sbcb    *dirpag        ; D2 12
  247.                 ; D3
  248.     andb    *dirpag        ; D4 12
  249.     bitb    *dirpag        ; D5 12
  250.     ldab    *dirpag        ; D6 12
  251.     stab    *dirpag        ; D7 12
  252.     eorb    *dirpag        ; D8 12
  253.     adcb    *dirpag        ; D9 12
  254.     orab    *dirpag        ; DA 12
  255.     addb    *dirpag        ; DB 12
  256.                 ; DC
  257.                 ; DD
  258.     ldx    *dirpag        ; DE 12
  259.     stx    *dirpag        ; DF 12
  260.  
  261.  
  262.     .page
  263.  
  264.     subb    dirpag,x    ; E0 12
  265.     cmpb    dirpag,x    ; E1 12
  266.     sbcb    dirpag,x    ; E2 12
  267.                 ; E3
  268.     andb    dirpag,x    ; E4 12
  269.     bitb    dirpag,x    ; E5 12
  270.     ldab    dirpag,x    ; E6 12
  271.     stab    dirpag,x    ; E7 12
  272.     eorb    dirpag,x    ; E8 12
  273.     adcb    dirpag,x    ; E9 12
  274.     orab    dirpag,x    ; EA 12
  275.     addb    dirpag,x    ; EB 12
  276.                 ; EC
  277.                 ; ED
  278.     ldx    dirpag,x    ; EE 12
  279.     stx    dirpag,x    ; EF 12
  280.     subb    ext        ; F0 12 34
  281.     cmpb    ext        ; F1 12 34
  282.     sbcb    ext        ; F2 12 34
  283.                 ; F3
  284.     andb    ext        ; F4 12 34
  285.     bitb    ext        ; F5 12 34
  286.     ldab    ext        ; F6 12 34
  287.     stab    ext        ; F7 12 34
  288.     eorb    ext        ; F8 12 34
  289.     adcb    ext        ; F9 12 34
  290.     orab    ext        ; FA 12 34
  291.     addb    ext        ; FB 12 34
  292.                 ; FC
  293.                 ; FD
  294.     ldx    ext        ; FE 12 34
  295.     stx    ext        ; FF 12 34
  296.